home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / qp com.1526 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  149 lines
  1. 5 print"[147]        initializing..."
  2. 10 gosub570
  3. 20 poke53280,0:poke53281,0:poke646,15:print"[147]            quad-print 1526"
  4. 30 dimb$(4):print"         (c) 1984 by m. beutjer"
  5. 40 ifb=0thenb=1:goto70
  6. 50 print"[147] pic 1 (upper left ) : "b$(1):print" pic 2 (upper right) : "b$(2)
  7. 60 print" pic 3 (lower left ) : "b$(3):print" pic 4 (lower right) : "b$(4)
  8. 70 print"  f1 = display 1 [146]       f2 = load 1   "
  9. 80 print"  f3 = display 2 [146]       f4 = load 2   "
  10. 90 print"  f5 = display 3 [146]       f6 = load 3   "
  11. 100 print"  f7 = display 4 [146]       f8 = load 4   "
  12. 110 print"  \  = dump pos  [146]       _  = dump neg "
  13. 120 print"        *  = quick view screens "
  14. 130 print"        @  = swap screens       "
  15. 140 print"        ^  = single print       "
  16. 150 geta$:ifa$<>""then150
  17. 160 geta$:ifa$=""then160
  18. 170 a=asc(a$)
  19. 180 ifa=92thensys49209:goto40
  20. 190 ifa=95thensys49205:goto40
  21. 200 ifa=42thena=1:gosub540:sys49430:sys49188:goto300
  22. 210 ifa=64then330
  23. 220 ifa=94then550
  24. 230 ifa<133then160
  25. 240 ifa>140then160
  26. 250 a=a-132:ifa>4thengosub460:goto40
  27. 260 gosub540:sys49430:sys49188
  28. 270 geta$:ifa$<>""then270
  29. 280 geta$:ifa$=""then280
  30. 290 sys49188:goto40
  31. 300 geta$:a=asc(a$+chr$(0)):ifa=32thensys49188:goto40
  32. 310 ifa<133ora>136then300
  33. 320 a=a-132:gosub540:sys49430:goto300
  34. 330 print"enter the numbers of the screens"
  35. 340 print"you want to swap (1-4)."
  36. 350 input"1st screen : ";a
  37. 360 input"2nd screen : ";b
  38. 370 ifa<1ora>4orb<1orb>4then330
  39. 380 gosub540:sys49430
  40. 390 poke49153,16*(2+a*2):poke49152,16*(2+b*2)
  41. 400 poke49155,224+(b-1)*4:poke49154,224+(a-1)*4
  42. 410 sys49430
  43. 420 poke49152,32:poke49153,16*(2+b*2):poke49155,224+(a-1)*4:poke49154,4
  44. 430 sys49430
  45. 440 a$=b$(a):b$(a)=b$(b):b$(b)=a$
  46. 450 goto40
  47. 460 rem  get filename and load it.
  48. 470 a=a-4:print" enter filename of pic"a": ";:inputa$
  49. 480 iflen(a$)>16then470
  50. 490 b$(a)=a$
  51. 500 poke49156,len(a$):poke49152,32:poke49153,16*(2+a*2)
  52. 520 forx=1tolen(a$):poke49156+x,asc(mid$(a$,x,1)):next
  53. 530 sys49394:poke49155,224+(a-1)*4:poke49154,28:sys49430:return
  54. 540 poke49153,32:poke49152,16*(2+a*2):poke49154,224+(a-1)*4:poke49155,4:return
  55. 550 input"enter no. of picture to print (1-4) : ";a
  56. 555 print"press p for positive, n for negative "
  57. 560 geta$:ifa$<"n"ora$>"p"then560
  58. 562 p=49788:ifa$="p"thenp=49792
  59. 565 poke49152,16*(2+a*2):sysp:goto40
  60. 570 i=49152
  61. 580 read a:if a=256 then return
  62. 590 poke i,a:i=i+1:goto580
  63. 600 data 0,0,0,0,0,60,162,0
  64. 610 data 32,126,197,169,76,44,169,96
  65. 620 data 133,138,169,44,133,0,0,0
  66. 630 data 0,0,0,0,0,0,0,0
  67. 640 data 0,0,0,0,173,17,208,73
  68. 650 data 32,141,17,208,173,24,208,73
  69. 660 data 8,141,24,208,96,169,255,208
  70. 670 data 2,169,0,141,33,192,32,117
  71. 680 data 193,169,0,133,251,169,64,133
  72. 690 data 252,169,0,141,32,192,169,96
  73. 700 data 141,31,192,169,25,141,29,192
  74. 710 data 32,121,192,169,0,133,251,169
  75. 720 data 128,133,252,169,0,141,32,192
  76. 730 data 169,160,141,31,192,169,25,141
  77. 740 data 29,192,32,121,192,32,45,194
  78. 750 data 96,32,197,193,32,178,192,165
  79. 760 data 251,72,165,252,72,173,32,192
  80. 770 data 133,251,173,31,192,133,252,32
  81. 780 data 178,192,165,251,141,32,192,165
  82. 790 data 252,141,31,192,104,133,252,104
  83. 800 data 133,251,32,225,255,208,5,104
  84. 810 data 104,76,117,192,206,29,192,208
  85. 820 data 200,96,169,40,141,30,192,160
  86. 830 data 0,162,0,120,169,46,133,1
  87. 840 data 177,251,141,34,192,169,47,133
  88. 850 data 1,88,14,34,192,62,21,192
  89. 860 data 232,224,8,208,245,200,192,8
  90. 870 data 208,223,24,165,251,105,8,133
  91. 880 data 251,165,252,105,0,133,252,162
  92. 890 data 0,32,219,193,206,30,192,208
  93. 900 data 198,96,169,1,162,8,160,0
  94. 910 data 32,186,255,173,4,192,162,5
  95. 920 data 160,192,32,189,255,169,0,170
  96. 930 data 160,28,32,213,255,169,1,32
  97. 940 data 195,255,32,204,255,96,160,0
  98. 950 data 132,251,174,1,192,134,252,132
  99. 960 data 253,174,0,192,134,254,142,34
  100. 970 data 192,238,34,192,200,192,32,208
  101. 980 data 248,160,0,120,169,46,133,1
  102. 990 data 177,253,145,251,169,47,133,1
  103. 1000 data 88,200,208,239,230,252,230,254
  104. 1010 data 165,254,205,34,192,208,228,173
  105. 1020 data 3,192,133,252,173,2,192,133
  106. 1030 data 254,162,4,120,169,40,133,1
  107. 1040 data 177,253,145,251,200,208,249,230
  108. 1050 data 252,230,254,202,208,242,169,47
  109. 1060 data 133,1,88,96,0,169,4,170
  110. 1070 data 160,255,32,186,255,169,0,32
  111. 1080 data 189,255,32,192,255,176,40,169
  112. 1090 data 6,168,162,4,32,186,255,169
  113. 1100 data 0,32,189,255,32,192,255,176
  114. 1110 data 22,169,5,168,162,4,32,186
  115. 1120 data 255,169,0,32,189,255,32,192
  116. 1130 data 255,176,4,32,176,193,24,96
  117. 1140 data 162,6,32,201,255,169,21,32
  118. 1150 data 210,255,169,13,32,210,255,32
  119. 1160 data 174,255,32,204,255,162,4,32
  120. 1170 data 201,255,169,13,32,210,255,32
  121. 1180 data 174,255,32,204,255,169,0,141
  122. 1190 data 116,193,96,32,93,194,240,105
  123. 1200 data 162,4,32,201,255,169,141,32
  124. 1210 data 210,255,32,174,255,32,204,255
  125. 1220 data 162,5,32,201,255,162,0,189
  126. 1230 data 21,192,77,33,192,32,210,255
  127. 1240 data 232,224,8,208,242,32,174,255
  128. 1250 data 162,4,32,201,255,174,116,193
  129. 1260 data 240,9,169,32,32,210,255,202
  130. 1270 data 76,16,194,238,116,193,169,254
  131. 1280 data 32,210,255,32,174,255,32,204
  132. 1290 data 255,32,109,194,96,32,197,193
  133. 1300 data 162,6,32,201,255,169,24,32
  134. 1310 data 210,255,169,13,32,210,255,32
  135. 1320 data 174,255,32,204,255,32,231,255
  136. 1330 data 96,162,4,32,201,255,169,254
  137. 1340 data 32,210,255,32,174,255,32,204
  138. 1350 data 255,238,116,193,96,162,0,189
  139. 1360 data 21,192,221,123,194,208,5,232
  140. 1370 data 224,8,208,243,96,162,0,189
  141. 1380 data 21,192,157,123,194,232,224,8
  142. 1390 data 208,245,96,0,169,255,208,2
  143. 1400 data 169,0,141,33,192,32,117,193
  144. 1410 data 169,0,133,251,173,0,192,133
  145. 1420 data 252,169,25,141,29,192,32,197
  146. 1430 data 193,32,178,192,32,225,255,208
  147. 1440 data 3,76,169,194,206,29,192,208
  148. 1450 data 237,32,45,194,96,256
  149.